home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / graphics / qpeg11c.zip / PARADISE.ASM < prev    next >
Assembly Source File  |  1993-10-17  |  2KB  |  94 lines
  1. ;
  2. ; QPEG video driver
  3. ; for Paradise / Western Digital chipsets
  4. ;
  5.  
  6.         .286
  7. Code    Segment Para 'Code'
  8.         Assume  cs:Code
  9.         Org 100h
  10.  
  11. Procs   dw      Bank,Init,Exit,0
  12.  
  13. Bank:   shl     al,4
  14.         push    ax
  15.         mov     dx,03ceh
  16.         mov     al,09h
  17.         out     dx,al
  18.         inc     dx
  19.         pop     ax
  20.         push    ax
  21.         out     dx,al
  22.         dec     dx
  23.         mov     al,0ah
  24.         out     dx,al
  25.         inc     dx
  26.         pop     ax
  27.         out     dx,al
  28.         retf
  29.  
  30. Init:   mov     dx,03ceh
  31.         mov     al,0fh
  32.         out     dx,al
  33.         inc     dx
  34.         mov     al,05h
  35.         out     dx,al
  36.         
  37.         mov     dx,03c4h
  38.         mov     al,06h
  39.         out     dx,al
  40.         inc     dx
  41.         mov     al,48h
  42.         out     dx,al
  43.         
  44.         mov     dx,03d4h
  45.         mov     al,29h
  46.         out     dx,al
  47.         inc     dx
  48.         mov     al,85h
  49.         out     dx,al
  50.         dec     dx
  51.         mov     al,2fh
  52.         out     dx,al
  53.         inc     dx
  54.         in      al,dx
  55.         and     al,11111101b
  56.         out     dx,al
  57.         
  58.         mov     dx,03ceh
  59.         mov     al,0bh
  60.         out     dx,al
  61.         inc     dx
  62.         in      al,dx
  63.         or      al,00001000b
  64.         out     dx,al
  65.         
  66.         mov     dx,03c4h
  67.         mov     al,11h
  68.         out     dx,al
  69.         inc     dx
  70.         in      al,dx
  71.         or      al,10000000b
  72.         out     dx,al
  73.         retf
  74.  
  75. Exit:   mov     dx,03ceh
  76.         mov     al,0fh
  77.         out     dx,al
  78.         inc     dx
  79.         xor     al,al
  80.         out     dx,al
  81.         
  82.         dec     dx
  83.         mov     al,06h
  84.         out     dx,al
  85.         inc     dx
  86.         xor     al,al
  87.         out     dx,al
  88.         retf
  89.  
  90. Code    Ends
  91.         End Procs
  92.  
  93. ; End of source.
  94.